home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
os2
/
xdsn217.zip
/
DEF
/
FormOut.def
< prev
next >
Wrap
Text File
|
1995-03-05
|
953b
|
34 lines
(* Copyright (c) xTech 1992,94. All Rights Reserved *)
DEFINITION MODULE FormOut;
IMPORT SYSTEM;
CONST (* line separators *)
default = "0"; (* default line separator will be used *)
text = "2"; (* default text file line separator will be used *)
cr = 15C;
lf = 12C;
crlf = "1"; (* CR LF separator *)
TYPE write_proc = PROCEDURE (SYSTEM.ADDRESS,ARRAY OF CHAR,INTEGER);
(* "write_proc" arguments:
parameter (first argument of "format")
string (without terminating 0C)
string length
*)
PROCEDURE format(parameter: SYSTEM.ADDRESS;
write : write_proc;
format : ARRAY OF CHAR;
linesep : CHAR;
args : SYSTEM.ADDRESS;
size : CARDINAL);
PROCEDURE LineSeparator(nl: ARRAY OF CHAR);
(* Sets default line separator *)
PROCEDURE TextSeparator(nl: ARRAY OF CHAR);
(* Sets default text file line separator *)
END FormOut.